home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Utilities / RA / RA Samples / Loop.ra < prev    next >
Encoding:
Text File  |  1986-10-15  |  740 b   |  47 lines  |  [THED/THTH]
  1. |
  2. |   RA¬
  3. |
  4. |    Loops
  5. |
  6. |   ⌐ 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. "RA¬ has one type of looping construct.!"
  10. "Any code imbedded between ()!"
  11. "will loop forever.!!"
  12. "If a ~ is  inserted within the ()!"
  13. "the top number on the stack is!"
  14. "tested, and if true the loop!"
  15. "terminates.!!"
  16. #A;
  17. "A single loop:!"
  18. 10 A: ( A. ! A. 1 - A: A. 0 > ~)
  19. #A;
  20. "Now a nested loop:"
  21. 5 A: ( "!A!" 5 B: ("B" B . 1 - B: B. 0 > ~) A. 1 - A: A. 0 > ~) "!"
  22. #A;
  23. "THE END."
  24. $
  25. &A
  26. "!Hit any key: " ?ñ ╡ @`
  27. |
  28. |  RA title routine
  29. |
  30. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  31.  
  32. &O
  33. 40 100 ╜
  34. "RA¬"
  35. 60 45 ╜ 
  36. "⌐ 1986 COM~LINK & S.Koren" 
  37. 80 60 ╜
  38. "All rights reserved." `
  39.  
  40. &L
  41. 35 A: ("Ñ" A. 1 - A: A. 0 > ~ ) "!"`
  42.  
  43. &N
  44. "Ñ" 33 A: (" " A. 1 - A: A. 0 > ~ ) "Ñ" "!"`
  45.  
  46. &P ?ñ @ `
  47. $